home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
science
/
sm32a.zip
/
LIBRARY
/
MIN.LI
< prev
next >
Wrap
Text File
|
1993-12-23
|
189b
|
9 lines
# min
# e.g. min([1,2,3]) gives 1
min(x_) := if(islist(x),
block(min:=member(x,1), len:=length(x),
do( if(member(x,j) < min, min:=member(x,j)), j,2,len,1),
min,
local(len) ))